home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
Recent1
/
Filer4_01.lha
/
Filer
/
Rexx
/
ZoomDecompress.filer
< prev
Wrap
Text File
|
1995-06-12
|
1KB
|
51 lines
/*
$VER: ZoomDecompress.filer 2.2 (12.6.95)
Author:
Matthias Scheler <tron@lyssa.owl.de>
Function:
Opens a string requester, asks for a drive and writes a Zoom file to the
specified drive.
History:
2.1 removed unnecessary ADDRESS 'FilerRexx'
2.2 added "CALL" before "SETCLIP" to prevent search for "1.rexx"
Call:
ZoomDecompress FILENAME
Example for "Filer.RC":
REXXCLASS "#?.zom","","ZoomDecompress %s"
*/
PARSE ARG FileName
OPTIONS RESULTS
'STATUS Decompress Zoom file'
PANEL OFF
DISKDRIVE=GETCLIP('FILER_DRIVE')
IF DISKDRIVE="" THEN DISKDRIVE='DF0:'
SETSTRING DISKDRIVE
GETSTRING 'Enter target drive (e.g. "DF0:"):'
IF RESULT="RESULT" THEN
DO
PANEL ON
'STATUS Decompress Zoom file aborted'
EXIT 5
END
DISKDRIVE=RESULT
CALL SETCLIP('FILER_DRIVE',DISKDRIVE)
'STATUS Decompressing Zoom file "'||FileName||'" to "'||DISKDRIVE||'" ...'
EXEC 'Zoom FROM '||FileName||' TO '||DISKDRIVE||' CLEARBLOCKS VERIFY'
PANEL ON
'HISTORY Decompressed Zoom file "'||FileName||'" to "'||DISKDRIVE||'".'